Public Class Evaluacion
    Inherits ComponenteEvaluacion

    Private midEvaluacion As Integer
    Private mnombre As String
    Private mnota As Double

    Public Overrides Property Nombre() As String
        Get
            Return mnombre
        End Get
        Set(ByVal value As String)
            Me.mnombre = value
        End Set
    End Property

    Public Overrides Property IdPlan() As Integer
        Get
            Return midEvaluacion
        End Get
        Set(ByVal value As Integer)
            Me.midEvaluacion = value
        End Set
    End Property

    Public Overrides Function CalcularNota() As Double
        Return mnota
    End Function

    Public Overrides Property Porcentaje() As Double
        Get
            Return mnota
        End Get
        Set(ByVal value As Double)
            mnota = value
        End Set
    End Property
End Class
